inherited frmDBMessageView: TfrmDBMessageView
  Left = 348
  Top = 157
  Caption = #31995#32479#28040#24687#26597#30475
  ClientHeight = 413
  ClientWidth = 750
  ExplicitWidth = 758
  ExplicitHeight = 459
  PixelsPerInch = 96
  TextHeight = 12
  inherited Bevel1: TBevel
    Top = 38
    Width = 744
    ExplicitTop = 38
    ExplicitWidth = 744
  end
  inherited Bevel2: TBevel
    Width = 744
    ExplicitWidth = 744
  end
  inherited Panel1: TPanel
    Width = 750
    Align = alTop
    Color = 16770250
    Visible = True
    ExplicitWidth = 750
    inherited img3: TImage
      Left = 464
      ExplicitLeft = 262
    end
    object Label1: TLabel [1]
      Left = 553
      Top = 12
      Width = 12
      Height = 12
      Anchors = [akTop, akRight]
      Caption = #33267
    end
    inherited labFuncName: TcxLabel
      Left = 82
      Caption = #31995#32479#28040#24687#26597#30475
      Style.IsFontAssigned = True
      Visible = False
      ExplicitLeft = 82
      ExplicitWidth = 76
    end
    inherited labFuncDesc: TcxLabel
      Style.IsFontAssigned = True
      Visible = False
    end
    object btnFind: TButton
      Left = 664
      Top = 6
      Width = 75
      Height = 25
      Anchors = [akTop, akRight]
      Caption = #26597#25214
      TabOrder = 0
      OnClick = btnFindClick
    end
    object rbnNotView: TRadioButton
      Left = 17
      Top = 8
      Width = 111
      Height = 17
      Caption = #26410#26597#38405#25110#26410#23436#25104
      Checked = True
      TabOrder = 2
      TabStop = True
      OnClick = rbnNotViewClick
    end
    object rbtnViewed: TRadioButton
      Left = 133
      Top = 8
      Width = 73
      Height = 17
      Caption = #24050#26597#38405
      TabOrder = 4
      OnClick = rbnNotViewClick
    end
    object DTB: TDateTimePicker
      Left = 462
      Top = 8
      Width = 91
      Height = 20
      Anchors = [akTop, akRight]
      Date = 39916.934833530090000000
      Time = 39916.934833530090000000
      TabOrder = 6
    end
    object DTE: TDateTimePicker
      Left = 566
      Top = 8
      Width = 93
      Height = 20
      Anchors = [akTop, akRight]
      Date = 39916.934901886570000000
      Time = 39916.934901886570000000
      TabOrder = 7
    end
    object edtMsgState: TcxComboBox
      Left = 209
      Top = 7
      Properties.Items.Strings = (
        #25152#26377#20107#39033
        #20195#21150#20107#39033
        #24050#21150#29702
        #21457#22238#37325#21150
        #20013#27490#20107#39033
        #23436#25104#20851#38381#20107#39033)
      TabOrder = 1
      Text = #25152#26377#20107#39033
      Width = 121
    end
  end
  inherited pnlMain: TPanel
    Top = 34
    Width = 750
    Height = 324
    ExplicitTop = 34
    ExplicitWidth = 750
    ExplicitHeight = 324
    inherited MainDataGrid: TcxGrid
      Width = 750
      Height = 324
      PopupMenu = PopupMenu2
      ExplicitWidth = 750
      ExplicitHeight = 324
      inherited MainDataGridDBTableView: TcxGridDBTableView
        PopupMenu = PopupMenu2
        OnDblClick = MainDataGridDBTableViewDblClick
        OnFocusedRecordChanged = MainDataGridDBTableViewFocusedRecordChanged
        DataController.Summary.FooterSummaryItems = <
          item
            Kind = skCount
            FieldName = 'MSG_Text'
            Column = MainDataGridDBTableViewMSG_Text
          end>
        OptionsView.ColumnAutoWidth = True
        object MainDataGridDBTableViewMSG_Text: TcxGridDBColumn
          Caption = #28040#24687
          DataBinding.FieldName = 'MSG_Text'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 226
        end
        object MainDataGridDBTableViewMSG_FromUserNM: TcxGridDBColumn
          Caption = #21457#36865#20154
          DataBinding.FieldName = 'MSG_FromUserNM'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 70
        end
        object MainDataGridDBTableViewCREATE_Time: TcxGridDBColumn
          Caption = #21457#36865#26102#38388
          DataBinding.FieldName = 'CREATE_Time'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 75
        end
        object MainDataGridDBTableViewMSG_ReadTime: TcxGridDBColumn
          Caption = #26597#38405#26102#38388
          DataBinding.FieldName = 'MSG_ReadTime'
          HeaderAlignmentHorz = taCenter
          Options.Editing = False
          Width = 68
        end
        object MainDataGridDBTableViewMsg_State: TcxGridDBColumn
          Caption = #28040#24687#29366#24577
          DataBinding.FieldName = 'Msg_State'
          PropertiesClassName = 'TcxComboBoxProperties'
          Properties.Items.Strings = (
            #26222#36890#28040#24687
            #20195#21150#20107#39033
            #24050#21150#29702
            #21457#22238#37325#21150
            #20013#27490#20107#39033
            #23436#25104#20851#38381#20107#39033)
          HeaderAlignmentHorz = taCenter
          Width = 65
        end
        object MainDataGridDBTableViewMSG_Dispose: TcxGridDBColumn
          Caption = #22788#29702
          DataBinding.FieldName = 'MSG_Dispose'
          HeaderAlignmentHorz = taCenter
          Width = 218
        end
        object colmt_msgtypename: TcxGridDBColumn
          Caption = #28040#24687#31867#22411
          DataBinding.FieldName = 'mt_Msgtypename'
          HeaderAlignmentHorz = taCenter
          Width = 60
        end
      end
    end
  end
  object Panel2: TPanel [4]
    Left = 0
    Top = 358
    Width = 750
    Height = 55
    Align = alBottom
    BevelOuter = bvNone
    Color = 16770250
    TabOrder = 2
    DesignSize = (
      750
      55)
    object chkRefresh: TcxCheckBox
      Left = 16
      Top = 9
      Anchors = [akLeft, akBottom]
      Caption = #33258#21160#21047#26032#28040#24687' '#38388#38548#26102#38388'           '#20998#38047
      Properties.ImmediatePost = True
      Properties.OnValidate = edtTimePropertiesValidate
      TabOrder = 2
    end
    object edtTime: TcxSpinEdit
      Left = 168
      Top = 9
      Anchors = [akLeft, akBottom]
      Properties.ImmediatePost = True
      Properties.MinValue = 1.000000000000000000
      Properties.OnValidate = edtTimePropertiesValidate
      TabOrder = 3
      Value = 1
      Width = 53
    end
    object btnProceeding: TcxButton
      Left = 878
      Top = 13
      Width = 75
      Height = 25
      Anchors = [akRight, akBottom]
      Caption = #20107#39033
      DropDownMenu = PopupMenu2
      Kind = cxbkDropDown
      LookAndFeel.Kind = lfUltraFlat
      TabOrder = 1
    end
    object btnListBill: TcxButton
      Left = 268
      Top = 13
      Width = 75
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = #26597#30475#21333#25454
      TabOrder = 0
      OnClick = pmListBillClick
    end
    object btnCheckBill: TcxButton
      Left = 356
      Top = 13
      Width = 75
      Height = 25
      Anchors = [akLeft, akBottom]
      Caption = #31614#23383'/'#23457#26680
      TabOrder = 4
      Visible = False
      OnClick = btnCheckBillClick
    end
    object chkAutoOpen: TcxCheckBox
      Left = 16
      Top = 29
      Caption = #26377#28040#24687#26102#33258#21160#25171#24320#26412#31383#21475
      Properties.OnValidate = edtTimePropertiesValidate
      TabOrder = 5
    end
  end
  inherited MainDataSource: TDataSource
    Top = 101
  end
  inherited PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 190
    Top = 206
    inherited PopmnuNewRecord: TMenuItem
      Visible = False
    end
    inherited PopmnuModifyRecord: TMenuItem
      Visible = False
    end
  end
  inherited MainDataSetU: TUniQuery
    SQLInsert.Strings = (
      'INSERT INTO ts_Messages'
      
        '  (MSG_ID, MSG_Text, MSG_FromUserID, MSG_FromUserNM, MSG_ToUserI' +
        'D, MSG_ISLook, CREATE_Time, MSG_ReadTime, MSG_Type, MSG_Incident' +
        'alFileName, MSG_ISHaveIncidental, MSG_IncidentalID, MSG_Text_Fro' +
        'm, MSG_ISReversion, MSG_ISNeedAutoRevert, MSG_ISAutoOpenIncident' +
        'al, MSG_Params, MSG_MsgTypeID, MSG_BType, MSG_Bid, MSG_State, MS' +
        'G_ReCount, MSG_Dispose, MSG_DisposeDate, MSG_PlanTime)'
      'VALUES'
      
        '  (:MSG_ID, :MSG_Text, :MSG_FromUserID, :MSG_FromUserNM, :MSG_To' +
        'UserID, :MSG_ISLook, :CREATE_Time, :MSG_ReadTime, :MSG_Type, :MS' +
        'G_IncidentalFileName, :MSG_ISHaveIncidental, :MSG_IncidentalID, ' +
        ':MSG_Text_From, :MSG_ISReversion, :MSG_ISNeedAutoRevert, :MSG_IS' +
        'AutoOpenIncidental, :MSG_Params, :MSG_MsgTypeID, :MSG_BType, :MS' +
        'G_Bid, :MSG_State, :MSG_ReCount, :MSG_Dispose, :MSG_DisposeDate,' +
        ' :MSG_PlanTime)'
      'SET :MSG_ID = SCOPE_IDENTITY()')
    SQLDelete.Strings = (
      'DELETE FROM ts_Messages'
      'WHERE'
      '  MSG_ID = :Old_MSG_ID')
    SQLUpdate.Strings = (
      'UPDATE ts_Messages'
      'SET'
      
        '  MSG_ID = :MSG_ID, MSG_Text = :MSG_Text, MSG_FromUserID = :MSG_' +
        'FromUserID, MSG_FromUserNM = :MSG_FromUserNM, MSG_ToUserID = :MS' +
        'G_ToUserID, MSG_ISLook = :MSG_ISLook, CREATE_Time = :CREATE_Time' +
        ', MSG_ReadTime = :MSG_ReadTime, MSG_Type = :MSG_Type, MSG_Incide' +
        'ntalFileName = :MSG_IncidentalFileName, MSG_ISHaveIncidental = :' +
        'MSG_ISHaveIncidental, MSG_IncidentalID = :MSG_IncidentalID, MSG_' +
        'Text_From = :MSG_Text_From, MSG_ISReversion = :MSG_ISReversion, ' +
        'MSG_ISNeedAutoRevert = :MSG_ISNeedAutoRevert, MSG_ISAutoOpenInci' +
        'dental = :MSG_ISAutoOpenIncidental, MSG_Params = :MSG_Params, MS' +
        'G_MsgTypeID = :MSG_MsgTypeID, MSG_BType = :MSG_BType, MSG_Bid = ' +
        ':MSG_Bid, MSG_State = :MSG_State, MSG_ReCount = :MSG_ReCount, MS' +
        'G_Dispose = :MSG_Dispose, MSG_DisposeDate = :MSG_DisposeDate, MS' +
        'G_PlanTime = :MSG_PlanTime'
      'WHERE'
      '  MSG_ID = :Old_MSG_ID')
    SQLLock.Strings = (
      'SELECT * FROM ts_Messages'
      'WITH (UPDLOCK, ROWLOCK, HOLDLOCK)'
      'WHERE'
      '  MSG_ID = :Old_MSG_ID')
    SQLRefresh.Strings = (
      
        'SELECT MSG_ID, MSG_Text, MSG_FromUserID, MSG_FromUserNM, MSG_ToU' +
        'serID, MSG_ISLook, CREATE_Time, MSG_ReadTime, MSG_Type, MSG_Inci' +
        'dentalFileName, MSG_ISHaveIncidental, MSG_IncidentalID, MSG_Text' +
        '_From, MSG_ISReversion, MSG_ISNeedAutoRevert, MSG_ISAutoOpenInci' +
        'dental, MSG_Params, MSG_MsgTypeID, MSG_BType, MSG_Bid, MSG_State' +
        ', MSG_ReCount, MSG_Dispose, MSG_DisposeDate, MSG_PlanTime FROM t' +
        's_Messages'
      'WHERE'
      '  MSG_ID = :Old_MSG_ID')
    SQLRecCount.Strings = (
      'SET :PCOUNT = (SELECT COUNT(*) FROM ts_Messages'
      ')')
    SQL.Strings = (
      
        'SELECT top 0 m.*, b.mt_msgtypename,B.MT_MenuIndex FROM ts_Messag' +
        'es A LEFT JOIN ts_MessageTypes  B ON(A.MSG_MsgTypeID=B.MT_MsgTyp' +
        'eID)')
    Left = 200
  end
  object PopupMenu2: TPopupMenu
    OnPopup = PopupMenu2Popup
    Left = 292
    Top = 84
    object mnuSetISReaded: TMenuItem
      Caption = #26631#35782#20026#24050#38405#35835
      OnClick = mnuSetISReadedClick
    end
    object muMsgNew: TMenuItem
      Caption = #21457#36865#28040#24687
      OnClick = muMsgNewClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object pmDelete: TMenuItem
      Caption = #21024#38500#28040#24687
      OnClick = pmDeleteClick
    end
    object numDeleteALL: TMenuItem
      Caption = #21024#38500#25152#26377
      OnClick = numDeleteALLClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object pmRefresh: TMenuItem
      Caption = #21047#26032#28040#24687
      OnClick = pmRefreshClick
    end
    object pmListBill: TMenuItem
      Caption = #26597#30475#21333#25454
      OnClick = pmListBillClick
    end
    object muMsgDetailed: TMenuItem
      Caption = #26597#30475#28040#24687
      OnClick = muMsgDetailedClick
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object muInitiate: TMenuItem
      Caption = #21457#36215#20107#39033
      OnClick = muInitiateClick
    end
    object muDispose: TMenuItem
      Caption = #21150#29702#20107#39033
    end
    object muReDispose: TMenuItem
      Caption = #21457#22238#37325#21150
    end
    object muProceedingPause: TMenuItem
      Caption = #20013#27490#20107#39033
    end
    object muDisposed: TMenuItem
      Caption = #23436#25104#20851#38381#20107#39033
    end
  end
end
